
       org $800
; sum of two value,  alpha + beta -> gamma
main    move.l #$1000,a7

        move.b  alpha,d0
        move.b  beta,d1
        jsr     adder
        move.b  d2,gamma

finish  nop


; subroutine adder of byte size
; operands are in d0,d1
; result d2 = d0 + d1
adder    movem.l  d3-d7/a0-a3/a5,-(a7)
         add.b d0,d1
         move.b d1,d2
         movem.l  (a7)+,d3-d7/a0-a3/a5
         rts


          org $b00

alpha     ds.b 1
beta      ds.b 1
gamma     ds.b 1




